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- 2. REGENT ( REPORT PROGRAM 
GENERATOR ) 


GENERAL DESCRIP TION 


REGENT, a problem oriented programming system and report program generator, is designed to 
reduce substantially the time and effort necessary to translate general data processing and 
reporting requirements into detailed computer instructions. It demands little knowledge of 


computer coding or instructions other than the basic rules for writing in the simplest form of the 


PAL assembly language. Essentially, the REGENT report program generator is a program which, 
on the basis of a series of statements provided to it, produces another program which will produce 
a report or other output of the desired kind. These statements, written on the standard PAL coding 
form and then keypunched into cards, provide:. 


w The formats of the input card files — these contain the information from which the report is to 
be prepared. 


= The format of the output to be produced — this may be a printed document, a series of summary 
cards, or both. 


= The operations to be performed — arithmetic operations, data movement and editing, control, 
input/output operations. . | 


The input and output format descriptions and the processing statements will, in conjunction with 
REGENT, produce an efficient ready to run object program. Also provided is a listing of source 
input and, if desired, the object coding generated. Sections of programmer’s own code may be 
included as necessary. 


The following pages present the rules for the expression of information for use by the UNIVAC 
1050 report program generator. 


UP-3932 Rev. 2 


2. INTRODUCTION 


GENERAL DESCRIPTION 


REGENT, a problem oriented programming system and report program generator, is 
designed to reduce substantially the time and effort necessary to translate general 
data processing and reporting requirements into detailed computer instructions. It 
demands little knowledge of computer coding or instructions other than the basic 
rules for writing in the simplest form of the PAL assembly language. Essentially, the 
REGENT report program generator is a program which, on the basis of a series of 
statements provided to it, produces another program which will produce a report or 
other output of the desired kind. These statements, written on the standard PAL 
coding form and then keypunched into cards provide: 


m The formats of the input card files — these contain the information from which the 
report is to be prepared. 


= The format of the output to be produced — this may be a printed document, a series 
of summary cards, or both. 


m The operations to be performed — arithmetic operations, data movement and editing, 
control, input/output operations. 


The input and output format descriptions and the processing statements will, in con- 
junction with REGENT, produce an efficient source program, ready for assembly by 
the PAL Assembler. Also provided is a listing of source input and, if desired, the 
object coding generated. Sections of programmer’s own code may be included as 
necesSary. 


The following pages present the rules for the expression of information for use by the 
UNIVAC 1050 report program generator. 
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SECTION: 


B. THE EXPRESSION OF INFORMATION 
1. I/O Field Description 


a. Input File Description (Card) 


An input card file is described by a series of field definitions which must be supplied to 
the generator in a group. The first card of the group must contain the entry INPUT in the 
operation field, with the label field and the operand field left blank. The following card 
contains a blank label field and minus sign (—) in the operation field, and CARD as a 
first operand. A second operand, SERIAL, must appear if the object program accepts 
input from a 90-column Column Reader. The first two cards will appear as 


SOF ER SECON 
angst agers ancestor aaa 


All fields of the input card file, which are used in arithmetic operations or for control 
purposes, or which contain information which is to appear in the report, must be given 
names (labels). The fields are described as follows: 


)E| LABEL OPERATION OPERANDS 
y6|7_—— fw 18119 ue 


Cee TE as 
Field Field Beaton of 


Fiel 


For example, a four character (RATE) field in columns 43-46 is described as 


Fa LABEL OPERATION OPERANDS 

Ne l 
7 LIN 13 18]19 A5\z 

CURE tate [abot 


Similarly, a twelve character (Description) field in columns 41-52 is described as 


LABEL OPERATION OPERANDS 
fe 1ihwh13 18|19 pia 
Lp E $c bre [fo bani 


o ac 
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B. THE EXPRESSION OF INFORMATION 
1. I/O Field Description 


a. Input File Description (Card) 


An input card file is described by a series of field definitions which must be supplied to 
the generator in a group. The first card of the group must contain the entry INPUT in the 
operation field, with the label field and the operand field left blank. The following card 
contains a blank label field and minus sign (—) in the operation field, and CARD in the 
operand field. The first two cards will appear as 


LABEL |1] OPERATION OPERANDS 
Ee 
i, 7s __s ee 37 


All fields of the input card file, which are used in arithmetic operations or for control 
purposes, or which contain information which is to appear in the report, must be given 
names (labels). The fields are described as follows: 


NAME OF | bemath of) Rightmost of Rightmost 
FIELD Field Position of 
| Field 


[6 |7 Lily ee, eee ec. eeeneMee I 
j 


2—B 


SECTION: PAGE: 


REGENT ee 


Thus an input card file which contains the following: 


COLUMNS CONTENTS 
1-3 Salesman Number 
4-5 Branch Number 
6 Product Class 
7-9 Product Number 
10 Type of Sale (N for New and R for Recurring) 
11-15 Customer Nuniber | ; 
16-20 | Retail Amount of Sales 


may be described as: 


Hf] OPERATION |. OPERANDS 
“KE 18119 30 40 454 


NOTE: Fields must not exceed 16 characters in length. 


b. Output Description 


(1) Detail Lines 


Detail lines are the type of lines most often produced by the program, usually consisting 
of information from the input file. Here, as with the input description, each field in the 
output detail line is given a name (label). The fields are described in the same fashion 
as the input file giving the name of the field. All field descriptors for the detail line 
must be fed to the generator in a group. The first two cards of this group must indicate 
to the generator that the following field descriptors apply to the detail line: 


" 2—B 3 
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Thus, a detail line appearing as 


XX XXX X XXX,XXX.XX XXX,XXX.XX XXX,XXX.XX XXX,XXX.XX 


can be described as 


| LABEL || [OPERATION OPERANDS 
an tnd wg 8 lS 


om 
a’ 


© 
~“ 


In this instance, FLD1 is two characters in length, and its rightmost character will 
appear in print position 17. FLD2 is three characters in length, and its rightmost 
character will appear in print position 22. FLD7 is 10 characters long, and its 
rightmost character will appear in print position 85. 


(2) Nondetail Lines 


The format of nondetail lines is given to the report generator by indicating the fields 
which contain constant information, those which contain variable information, and 
those which are blank. 


|+n| value of field 


een PAGE: : REGENT UP-3932 


Each line description is preceded by an instruction to the generator that this is a 
description of a nondetail line, as follows: 


To describe a line of the following format: 


OCTOBER 1962 PAGE XxX 


one can write . 


This description specifies that print positions 1 through 47 will be blank; that the next 

12 print positions will contain OCTOBER 1962;* that the next 17 positions will be 

blank; the next 5 positions will contain PAGE and a space; the next two positions are 

reserved for page number (to be provided in the program by means of the label PGNO); 
and the last 45 positions will be blank. 


Note that the variable information field (the page number field) has a name. The sum of 
the fields described for each print line must be 128. Blank areas such as the Ist, 3rd, 
and last entries in the example above may be as large as 128 characters. Fields 
containing information may not exceed 16 characters. 


* 
Alphabetic, numeric, or alphanumeric constants are written enclosed in apostrophes. 


: ; 2—B 5 
UP-3932 REGENT eee: page: 


(3) Summary Cards 


All fields of the output summary card are given names. The fields are described by 
giving the name of the field, the length of the field, and the rightmost position of the 
field. All field descriptions for the summary card are fed to the generator as a group. 
The first two cards of this group indicate to the generator that the following are field 
descriptions for the summary card and have the following format: 


Thus a summary card which contains the following: 


COLUMNS CONTENTS 
1-2 Branch Number 
3-10 Total Retail New Business 
11-18 Total Wholesale New Business 
19-26 . Total Retail Old Business 
27-34 Total Wholesale Old Business: 


can be described as: 


LABEL y OPERATION OPERANDS 
My uiiyps_18 9 ec ee 


NOTE: Fields must not exceed 16 characters in length. 


“— : REGENT 
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2. Accumulators 


The size and name of each Accumulator is provided to the generator as follows: 


YE | LABEL OPERATION OPERANDS | iz: 
4 1 
516 |7 LS EL 30 40 45146 

+ Size of 
Se <a ge Se avg Pega Ee ECON (AE) 


To define Accumulator Number 3 (A3) as 8 digits in length and with an initial value of zero, 
the following line is written: 


LABEL ||[OPERATION OPERANDS dl 
1 
Ren 11 fe 3 18|19 454 


TE ( ee aT ROC RAINE 
SEER © AGEN ORE CGR RITE LER AAAI 


NOTE: Fields must not exceed 16 characters in length. 


3. Constants 


_ The size and value of each constant required is provided to the Beneratoy as 


Name of ie Se 
Constant ms 
To define the decimal constant 845, the following line is written: 


\E| LABEL OPERATION OPERANDS | 
16 |7 1 18|19 ce 
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To define the constant TOTALACOST, the following line is written: 


YE | LABEL . 
a | bial ss ee 


Pe eens | ARTS TAR COST 


NOTE: Fields must not exceed 16 characters in length. 


4. Edit Masks 


The mask described for editing is a picture of the resultant edited field. An '@' appears in the 
mask in each position of the edited field which is to receive a character from the unedited 
field. Thus the mask | 


C0, @@@. @@ 


is used to edit a field of dollars and cents for a value less than $100,000.00. The mask is 
‘defined as follows: 


OPERATION OPERANDS 
| 
18/19 45! 46 


+ Number of ‘Value of mask’ 
Characters ! 
a ee ee 


The above mask can be defined as 


If the least significant character of the mask is a '_" the rightmost position of the edited field 
will be a blank if the value of the unedited field is positive and a — if the value of the un- 
edited field is negative. 


NOTE: Fields must not exceed 16 characters in length. 
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5. Temporary Storage Registers 


On occasion, Temporary Storage is required for maintaining intermediate results. Temporary 
Storage iS assigned by writing: 


E[ LABEL |] 
16 |7 11h 
(fe Name of 
Temporary 
s Storage 


OPERATION OPERANDS | 
| 
, 4 18}19 RE ROR HEOwE 


+ Number of 
Characters 
of oe es ees 7 

Storage 


For example, 


reserves a 12 character storage area for temporary results. 


NOTE: Fields must not exceed 16 characters in length. 
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C. ARITHMETIC OPERATIONS 


Processing information is supplied to the generator in the form of statements. The following 
section describes the arithmetic operations available. All arithmetic performed by the object 
code is decimal. 


1. Add a Field to an Accumulator 


The contents of the field named in the first expression a.¢ added algebraically to the 
accumulator(s) named in the second expression. If more than one accumulator is named, 
the addition is performed to each one named. A maximum of 5 accumulators may be named 
in each ADD operation. The contents of the first named field témain unchanged. 


Examples: 


Add retail amount (RTAIL) to accumulator 1 (Al): 


Add cost (COST) to accumulators 1, 3, and 6 (Al, A3, and A6): | - 


SECTION: 
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2. Subtract a Field from an Accumulator 


LABEL [}] OPERATION OPERANDS 
7 _ityp3 W398 
he 


UP-3932 


The contents of the field named in the firsy expression are subtracted from the accumulator(s) 


named in the second and subsequent expressions. A maximum of 5 accumulators may be 


named in a single subtract operation.The contents of the first named field remain unchanged. 


Examples: 


Subtract expenses (EXPNS) from accumulator 4 (A4): 


LABEL ||] OPERATION OPERANDS 

{ 

ae beh 9 
ER SC SEC ee * PKS 


Subtract taxes (TAXES) from accumulators 3 and 7 (A3 and A7): 


cittoticand: Result Field 


REGENT 


The contents of the field named in the first expression are multiplied by the contents of the 
field named in the second. The result is stored in the third named field. The length of the 
multiplier may not exceed 8 characters, and the combined length of the multiplier and multi- 
plicand may not exceed 16. 


_ Example: 


Multiply hours (HOURS) by a rate (RATE) and place result in a temporary storage (TS1): 


|] OPERATION OPERANDS 
v3 Lc, | 
Fras iitdige afona nied ctu amnecdotiet ATE 


4. Divide One Field by Another 


‘E| LABEL |{] OPERATION OPERANDS 

—— Da a eee 1c 
gee 4 Name o “Name ot None ot” Nome ot o Name o 

eeee ieee Dividend, Divisor, Quotient Field 


The contents of the first named expression are divided by the contents of the second; 
the result is stored in the third. 


The object coding produced by REGENT prevents improper division from being attempted, 
including a division which would produce decimal overflow. UP-3912, the UNIVAC 1050 
Central Processor Manual provides a description of the requirements which must be met 
if a valid divide operation is to be executed. The object program will stop if any of these 
are violated, the display indicating the nature of the violation. If the program is continued 
following the error stop, the operands will be arbitrarily modified in the following manner: 


If the defined length of the quotient field is greater than 8 characters, it will be shortened 
to 8, the most significant digit(s) being omitted. 


If the length of the quotient (as modified above if necessary) plus the length of the 
divisor is less than dividend length, or exceeds 16 characters, the divisor is altered 
to the required length. 


If the absolute value of the divisor is such that decimal overflow will occur if a division 
is attempted, the divide instruction will not be executed. 


7 3 
mene hese, REtsEAIT UP-3932 


Example: 


Divide profit (PROFT) by cost (COST) and place result in a temporary storage (TS13): 


LABEL [}} OPERATION OPERANDS 
Fs 18|19 ia 


feo mcrsts emteeenterancter timate ARE NE EE A AAA IEE NESSES OCA SP PE TR I PS Ta SE SS 7S PS PS SS SEE GS POS SENT Ss PSS OS ST SIAL SEES 


I iw nor bn tts SA 
a : aa 


5. Add to Accumulator(s) and Reset Source 


LABEL ||] OPERATION OPERANDS 
— nips 18|19 es)” 
ae Boe OL b 


The contents of the first named accumulator are added to contents of the second and 
subsequent named accumulators. A maximum of 5 receiving accumulators may be named. 
The source accumulator is reset to zero. 


Examples: 


Add accumulator 1 (A1) to accumulator 3 (A3) then reset accumulator 1: 


\E| LABEL |}. 
ee vk 
| 


OPERANDS 
30 40 45/4 


OPERATION 
#13 18|19 


Add accumulator 1 (Al) to accumulators 3, 7, and 10 (A3, A7,and A10) then reset ac- 
cumulator 1: 


\E| LABEL |}; OPERATION OPERANDS 
4 | 
(6 |7 lily ee ae 137” 


- o 
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6. Reset Accumulator 


Each accumulator named is cleared to zero. A maximum of 5 may be named. 


Examples: 


Reset accumulator 2 (A2): 


7 1] 
A) aay Name of field to be rounded, Number of positions to be dropped 
ens A ee ee ee ee ee eee ed 


ee: aie PAGE: : REGENT al | 


The field namedin the first expression will be half adjusted and right justified with zeros 
inserted to the left. The sign of the field remains unchanged. 


GROSS 
Before 123456 
After 001235 


8. Position Adjust a Field (Shift) 


ae oe of [Name of field to be shifted, Number of positions to be shifted, Direction (Lor R to be shifted, Number of positions to be shifted, Direction (Lor R 
| ee H | F,T 
i@j 


The contents of the named field are shifted destructively, that is,characters shifted beyond 
the limits of the field are lost. If the third expression is L, the field contents are shifted 
left with decimal zeros inserted at the right. If the third expression is R, the field is shifted 
right with zeros inserted at the left. The sign of the field remains unchanged. 


Examples: 


ET LABEL ||[OPERATION OPERANDS 
6i7 a :) Seer 37 
i era SAT IEE A 


Before 12345 
After 34500 


ies REGENT ieeiitco..tei 


YE | LABEL [/] OPERATION OPERANDS 
16 |7 11 iba 3 18/19 30 40 ‘| 
R | 


ae © ae ce 
2 a 


Before 12345 
After 00123 
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D. DATA MOVEMENT AND EDITING 
1. Move 


)E| LABEL [|] OPERATION OPERANDS 
=a | 
16 17 wigs tsng 8 


Name of Name of Zero suppression 
source field, decease field, edit mask, key 


This operation is used to transfer the contents of one field to another with or without editing 
and/or zero suppression. 


To transfer information without editing or zero suppression only the first two expres- 
Sions are written. Alphabetic or numeric information may be transferred in this manner. 


To edit decimal data while it is being transferred, the name of a previously defined 
edit ‘‘mask”’ is written as the third expression. 


If suppression of leading zeros is desired, one of the following keys is written as the 
fourth expression: 


ZS Leading zeros and commas are changed to blanks. 
ZS* Leading zeros and commas are changed to asterisks. 


ZS$ Leading zeros and commas are changed to blanks, and a $ is inserted to the 
left of the most Significant digit. 


Zero suppression may be accomplished without editing if the third expression is left 
blank, and a comma is inserted in its place. 


Examples: 


LABEL [I] OPERATION OPERANDS 
eu Ce ec) 
TT. : MONE OVE |FLDA,, F.LD.B 
- eee 


MAS KA, 


FLDA before 0012345 


MASKA 00,0@@.@@ 
FLDB after AA$123. 45 


2—D 
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FLDA before 0012345 
FLDB after ** 12345 


Note: 


If it is desired to preserve the remainder from a Divide, the MOVE operation may be used 
by writing only one expression, the name of the field into which the remainder of the Divide 
is to be stored. This special use of the MOVE may be written only if it immediately follows 
the Divide operation. 


2. Clear 


To clear an area to blanks, the programmer writes: 


This causes blanks to be inserted in the entire area of the operand. If the operand is DTAIL, 
the detail print area (128 characters) will be filled with blanks. If the operand is CARD, the 
card punch output area (80 characters) will be filled with blanks. If the operand is the label 
of a field (16 characters or less) the field defined by that label will be filled with blanks. 


The CLEAR statement should be written prior to the creation of any DTAIL or CARD out- 
put information. 


REGENT 


E. PROGRAM SEQUENCE CONTROL 


The sequence of steps executed by the generated program is determined by the order of input 
to the report generator. The following are methods whereby the sequence of execution can be 


altered, based on control breaks oY the existence of certain conditions. 
: 
1. Total Levels (Control eee 3 ef le 


Ee OPERATION OPERANDS | 

17 M/E U 

me ry ps of Comparison, Name of Routine to be Executed, Name of Control Fields) 
LE Vin 


Testing for the presence of a control break is accomplished by writing a LEVn statement. 
Such a statement consists of the entry LEVn in the operation field where n is a number from 
1 through 9, and three, four, or five expressions in the operand field. The first expression 
will be ALPH, DEC, or ZONE denoting the type of comparison desired. Where the first ex- 
pression is ALPH or DEC, the second expression is the label of the routine to be executed 
if a change in the control field(s) is detected; the third, fourth, and fifth expressions are 
labels of control fields which are to be tested. Only one control field is required, but up to © 
three may be used if desired. Where more than one is written, the control break will occur 

if any of the fields change. =a 


If the first expression is ZONE, the second expression is the label of the routine to be 
executed if the control condition is met, the third expression is the label of a single charac- 
ter field in a card input file, and the fourth expression is 11, 12, or 0 to denote the zone 
punch to be tested. If the label in the third expression describes a multicharacter field, the 
least significant character will be tested. 


The highest level of control is given the lowest level number, and the lowest level of 
control is given the highest level number, LEVn statements are written in the order of high- 
est level to lowest level. ; 

In the generated program, when a total level (control break) occurs, the occurrence of all 


higher numbered total levels are inhibited. Therefore, the routine executed when a total 
level occurs should include'the execution of the next lower level. 


[OPERATION nen 
318119 
x ALPH, MAJOR,, FLDA ! 


Examples: 


\E} LABEL 
ae 


In this case, an alphabetic comparison is made and if there is a change in the field labeled 
FLDA, the routine labeled MAJOR is executed. 
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SECTION: 


FLDC F LDD, 


A decimal comparison is made, with zones ignored except the sign zone, and the routine 
labeled INTM is executed when there is a change in the fields labeled FLDB, FLDC, or 
FLDD. = ’ 


Fs, LABEL }]] OPERATION OPERANDS 

4 l 

| 738 898 
NOR 


Ane | KE ZONE,, MI COL 7 


In this case, when the single character field labeled COL7 contains an 11 punch, the 
routine labeled MINOR will be executed. 


In the particular sequence of LEV statements above, the occurrence of a change in FLDA 
will cause the execution of the routine labeled MAJOR, the LEV2 and LEV3 statements will 
have no effect, and, on the completion of MAJOR, the next operation to be performed will be 
that which follows the LEV3 statement. If FLDA has not changed, the LEV2 statement will 
cause a test for a change in FLDB, FLDC, or FLDD. If a change has occurred, INTM 

will be executed, the LEV3 statement will have no effect, and the next operation will 

be that specified on the line following LEV3. If neither FLDA, FLDB, FLDC, nor FLDD 
have changed, the LEV3 statement will cause a test for an 11 punch in the single character 
field character field labeled COL7. If the condition is met, MINOR will be executed. 


2. Comparison of Fields 


Two fields may be compared, and program sequence changed based on their relationship, 
using the IFDEC or IFALP directives. 


Nameof , condition , Nameof , Label Of operation , Label of operation 
1st : transferred to if transferred to if 
field i — condition met. condition not met 

i _ (optional) 


IFDEC causes a decimal algebraic comparison. 


; 2—E 


SECTION: 
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If the condition (2nd operand) 1s _ The condition 1s met when 
E lst field = 2nd field 
-U 1st field # 2nd field 
H lst field > 2nd field 
L lst field < 2nd field 


The last expression in the operands field in all compare operations is optional. If it is 
blank, the next operation in sequence is performed when the condition is not met. 


OPERATION OPERANDS 
18}19 rP 


rrr rr a ATE TOEESTESERSY ICSI SE EN SS PS SSS ER SET I Fo ET RD I RTE DED AE I SES IE ESE PE PSR TT TEED PA TGA TS TTY TOS ANE TS NOTE RT ESET BRERRES 


ae FLDA 


Example: 


If the value of FLDA is 101 and the value of FLDB is 100, the condition H is met and 
control will be transferred to the operation labeled GO. If the condition is not met, control 
will, in this case,be transferred to the operation labeled NOGO. If the last expression were 
blank, the next instruction in sequence would be executed. 


IFALP causes an alphabetic (binary) comparison. 


Name of , condition , Name of , Label of operation , Label of operation | 
lst 2nd transferred to if ' transferred to if 
field | field condition met condition not met 

. (optional) 


I TOPERATION VFERANDS 
Ee) 18/19 
FA MEAP Pp IFLDA 


If the value of FLDA is 99 and the value of FLDB is 100, the condition is not met and 
control will be transferred to the operation labeled NOGO. If the fifth expression is blank, 
the next instruction in sequence will be executed. 
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3. Comparison of Character, Zone, and Signs 


a. Character Comparison 


E| LABEL ||] OPERATION OPERANDS 
6 |7 ifs 819 ee ee C7” 
Ar Ke Mi" ae ieee FEE 


This operation is the same as IFDEC and IFALP except that only a single character is 
compared to the actual character designated by the 3rd operand. If the first named ex- 
pression is longer than 1 character, only the least significant character is compared. 


\E| LABEL ||] OPERATION OPERANDS 
(6|7 uilwhs a8 wg 
Ar oe BENE IOs Me BO 


If the value of FLDA is ABCD, since ‘D’ is equal to the least significant character of 
FLDA, the unequal (U) condition has not been met. There is no fifth expression, there- 
fore the operation following next in sequence will be performed next. 


b. Digit Comparison 


This operation is the same as IFCHR with two exceptions: 
(a) The third operand will be a decimal number from 0 through 9. 


(b) Zone bits are ignored in the comparison. 
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SECTION: 


Example: 


If the character labeled COL80 contains a 1 punch, the equal condition is met, regard- 
less of the zone portion, and control will be transferred to the operation labeled SKIP. 


3. Zone Comparison 


OPERATION OPERANDS 
13 18}19 
Trem, Label of character to be compared , ; , not met 
i 


The IFZON operation always tests for the presence of the zone punch designated by the 
second operand which must be 11, 12, or 0. The operation will normally be used to test 
for the existence of a zone punch in an 80 column card where the remaining portion of 
the column (digit) has a separate meaning. 


Example: 


SK 


If the character labeled COL80 contains an 11 punch, the condition is met, regardless 
of the digit (1-9) portion. 


4. Sign Comparison 


The field whose label is designated by the lst operand is tested for negative value. If 
it is negative, the condition is met. 


wet FO OW Pe feed 0 Nee Gee eer ee ee ee FO 
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SECTION: 


Example: 


OPERATION OPERANDS | 
13 Se a eee. eee. 5) 45144 
SK 


If the accumulator named ACC1 contains 12345-, control is transferred to SKIP. 


D. ROUTINES 


Routines are a series of operations which are performed when called for. 


These operations are designated as follows: 


The lines between RTN and EXIT will be executed as a closed subroutine. 
NAME for these two lines must be the same, the name of the routine. 


E. EXECUTION OF ROUTINES 


Routines are normally executed as a result of the occurrence of either a LEV break or page 
overflow. 


Execution of a routine may also occur through use of the XCUTE command: 


REGENT 
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6. Unconditional Transfer of Control 


OPERATION 
13 18 


ee cee eC ee ro mS EE ERTS RRS ES SD EE SS ET SS SE PST DA CEA PPE GI SSS LEED ED 


6,0,T,0 
a a ei eee een 


This causes an unconditional transfer of control to the operation named in the operand field. 


'- 7. Display Stop 


OPERATION OPERANDS 
! 
vi) 3 18}19 30 40 45! 


ee 
AEE YI A EE I SEP LE EE EE SE EE TE PTTL PF TPE ST IF IEP ESP PDE SE ETS IIE SE YD AT NE TE TSE CNC EINES DIES 


~ This causes a display stop to be generated containing the display written in the operand 
field. If the Reader is being used it may be closed before stopping (see CLOS below). This 
will not impair continued use of the Reader after the stop. 


8. Closing Run 


)E | LABEL OPERATION OPERANDS | 
16 17 11f¥113 18|19 30 40 A5\4¢ 


This operation causes the I/O devices named to complete current operations and stop running. 


It must be executed at the end of processing 
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SECTION: 


F. INPUT/OUTPUT CONTROL 
1. Input Reading 


To read an input record, one writes 


2. Output Punching 


-To punch a summary card, one writes 


3. Output Printing 
Two forms of print command are available. Form 1 is used when it is desired to skip a 
certain number of lines before printing; form 2 is used when it is desired to print a line on 


a particular position of the output page. 


Form 1 


Line Name, skiguing n, last line number that this, routine * to be executed 
or DTAIL lines line is to be printed on when page overflow 
or NOVF occurs 


* A form 1 print must not be incorporated in the page overflow routine. 


“a 


2—F 2 
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The above command will cause the report generator to produce coding to print the line 
named, or a detail line, after skipping n lines. If an attempt to print this line beyond the 
last line parameter is made, page overflow will occur and the routine named is executed. 
If no page overflow is jeahca: the 3rd operand is written as NOVF and the 4th operand is. 
omitted. 


Form 2 


\E{ LABEL [}] OPERATION OPERANDS | 
i617 1 Tiel 3 18/19 30 40 45144 


. PRIN T Line name or DTAIL , on line npmber n ! 


This command will cause the printing of the line named or of a detail line on the line num- 
ber designated. 


ee REGENT | a PAGE: 


G. SELECTION OF INPUT/OUTPUT CONTROL ROUTINES 
1. Magnetic Tape System 


. If the PAL Tape Assembler is being used to generate the REGENT program, all of the I/O 
control routines being used by the installation are available to the REGENT user. A call line 
must be written for each device being used in the program. The operation field of the call line 
will contain the name of the control routine desired. The operands are standard (for REGENT) 
and will always be written as shown below: 


a. Call lines for I/O routines which operate under control of the I/O Coordinator 


2. Card System 


If the Card REGENT program is used, the call lines for I/O controls are omitted. The required 
I/O routines supplied by Univac must be inserted in the Card REGENT output deck prior to 
final assembly. They should be inserted immediately after the first card (BEGIN). 


UP-3932 2—H 
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H. REQUIRED OPERATION STATEMENTS 


The following statements must appear in all REGENT programs in the location and manner 
prescribed. 


1. 


\E. : OPERANDS 
16 7 & i 30 40 Ag 


This must be the first statement. The operands field in the BEGIN statement for REGENT is 
the same as for the PAL assembly system. 


oe A of Names of 1/0 peripherals to be used, CORD (optional). aan to be used, CORD seicielarea hd das eaaes AR 


The BEGIN statement must be followed by the USE statement. The operands will be READ, 
and/or PRINT, and/or PUNCH, in any order. This operation enables REGENT to generate the 


instructions necessary to initialize the peripheral devices to be used. The operand, CORD, 
is used to indicate that the program is to run under control of the I/O Coordinator (must not 
appear in input to Card REGENT) 


|] OPERATION OPERANDS 
3 18)i9 a 
aes Pp PAGE GE Nunberotlines on page of piintad cuiput, = SCC page of aii beatae el cei ARNT output. 


If one of the operands of the USE statement is PRINT, the PAGE statement must follow the 
USE statement. This enables REGENT to control the page overflow, and line counting 
operations as required by the PRINT statements. 


oe PAGE: : REGENT 


LABEL [}] OPERATION OPERANDS | 
t l 
ae Ws 898 


If the I/O corrdinator is being used, this operation releases the programs storage allocation, 
and relinquishes control to the coordinator. It should be written at the conclusion of processing. 


(after the CLOS) 


LABEL [|] OPERATION OPERANDS 
ae nits 18 yng 8 eC—C(iti 


The last line (card) of the source program will be as above with no variations. 
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PROGRAM ORGANIZATION 


Before writing a REGENT program, it is advisable to prepare a complete description of the 
problem with particular attention to input and output layout. With this done, it is a simple task 
to assign names to the various fields and lines and to write definitions of the input and output 
areas using the INPUT and OUTPT directives. 


Having prepared all of the field descriptions required, a list of constants, edit masks, and 
accumulators should be prepared. The input/output layouts should be consulted to be certain 
each accumulator has been defined with a sufficient length to handle the maximum possible 
total size. 


The sequence of operations in the object program is determined by the sequence in which they 
are written and may be altered as directed by program control directives. 


Below are some conventions which should be followed to assure correct and efficient object 
coding. 


a. A page overflow routine should be executed at the very beginning to assure proper initial 
positioning of paper before processing begins. The first operation to be performed by the 
program must contain the label START. 


b. Normally, the reading of an input item will be immediately followed by a test for the end of 
the run. This will probably consist of an IF operation, comparing a previously defined senti- 
nel constant with a field from the input. 


c. The LEV directives should occur before any further processing is specified, since a control 
break indicates that the last card of a control group has already been processed. After the 
LEV operations have been written in their proper sequence, they should be followed by the 
processing which is done, if no control break has occurred. This will normally be the compu- 
tation, movement, and printing of the detail line. 


d. Sequence control directives should be preceded by operations which are to be performed re- 
gardless of the result of the transfer. This will conserve storage and result in a more efficient 
program. 


e. Closed subroutines which are written using the RTN directive will follow the detail process- 
ing. | 


f. End of job processing, to which control is transferred as a result of the test mentioned in (b) 
above, should include execution of the highest control total level (assuring execution of all 
lower ones) and the page overflow routine. 
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J. OPERATING INSTRUCTIONS 


1. 


Magnetic Tape REGENT 


REGENT source cards are used as direct input to the PAL Tape Assembler, and the operating 
instructions for the assembler should be followed. No further processing of the output object 
programs is required. 


. Card REGENT 


The Card REGENT program produces a PAL source deck which is subsequently assembled 
using the PAL Card Assembler, after the desired I/O control routines are added. The steps 
required to produce an object program are as follows: 


a. The Card REGENT object program is loaded from the card reader, followed by the source 
cards. 


The intermediate source output is punched and the input cards are listed on the printer. 
(This listing may be eliminated by setting Sense Switch 1.) 


b. The intermediate output cards are removed from the punch. The I/O control routines required 
for the programs are selected from those supplied with Card REGENT. These are inserted 
after the first (BEGIN) card of the intermediate deck. The deck is then ready to be used as 
direct input to the PAL Card Assembler. 


Output cards are sequenced by Card REGENT beginning with 05000. The I/O routines have 
Sequence numbers lower than 5000. This is done for future reference or for sorting purposes. 
Input statements will be punched in the output as comment cards containing **** in columns 
7-11 and blanks in the sequence number field. 


c. Assembly 


The operating instructions for the PAL Card Assembler should be followed. After both 
passes of the assembly have been completed, the I/O control cards should be removed and 
stored for future use. 
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NEXT INSTRUCTION 
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: OVERFLOW PROGRAM PROGRAM 
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Figure 9-1. Central Processor Console 
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(2) Program to Program 


(a) Executive Routine to REGENT 


The Executive communicates information to REGENT through storage locations 0, 1, 

2, 3. The information transferred consists of the four characters that appeared in 
columns 7-10 of the REGENT call card (read by the Executive). The contents of 
storage locations 0-3 specify to REGENT the location of the source program as follows: 


If the contents of storage locations 0-3 are blank, Pre-pass REGENT will check 
Sense Switch 1 with the following result: 


ON -— PID accepted via a trace switch key in. 
OFF — Call card (PID in columns 1-5) or source program cards are read. 


If the contents of storage locations 0-3 are not blank, Pre-pass REGENT will use 
the four characters of information for the PID and attempt to locate the specified 
program on tape. 


NOTE: The four character ID supplied by the Executive is preserved by REGENT 
on the first and successive recovery attempts. 


(b) REGENT to PAL 


The above mentioned storage locations (0-3) are also used by REGENT to inform 
PAL that the program (REGENT output) to be assembled is the first on tape. 
REGENT accomplishes this by setting (0-3) = $ZZZ immediately prior to loading PAL. 


3. Operating Procedure 


a. 


General 

At REGENT processing time, 

Sense Switch 1 controls the location of source code, unless the locate option (described in 
step (9)-(a) of the Console Operating Instructions) is employed — in which case Sense 
Switch 1 control is nonexistent. 


OFF — Pre-pass REGENT expects a source program or call card in reader. 


ON — REGENT will stop to allow a trace switch key in of the four character source program 
ID (PID) that specifies the program to be processed from tape. 


At assembly time, 

Sense Switch 1 controls the codedit on tape option. 

ON -— Write codedit on tape (tape unit 2). 

OFF — Do not write codedit on tape. 

Sense Switch 2 controls the printing of the assembly listing. 


OFF — Entire listing will be printed. 
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10. UNIVAC 1050/1004 REGENT 


GENERAL DESCRIPTION 


The UNIVAC 1050/1004 REGENT directive statements are the same as those of the 
UNIVAC 1050 REGENT with the exception of the CLEAR directive, which may not be 
used, the I/O selection directives, and the I/O field description directives. 


The use of the UNIVAC 1004 as the input/output device for REGENT programs pre- 
cludes the use of the 1050 standard peripheral devices (card reader, card punch, and 
printer), and their associated input/output control routines. Whereas in the UNIVAC 
1050 REGENT, the I/O selection directive and I/O field description directives are 
distinct and not positionally related; in the UNIVAC 1050/1004 REGENT, the two 
directives are combined. The field description directives for card input, card output, 
and output detail must immediately follow the I/O selection directive for the related 
I/O device. The output nondetail directive is the exception and may be used as with 
UNIVAC 1050 REGENT. 


CARD SYSTEM 


If the PAL Card Assembler is used, the call lines for the I/O control routines are 
omitted. The I/O control routines are supplied by UNIVAC in card deck form. The 
I/O control routine package must be inserted in the card REGENT output deck prior 
to final assembly. 


The following I/O field descriptions must appear directly behind the related 
I/O control routine card deck: 


Card reader control routine input area, 


Length Rightmost 
SP a Field Position of Field 


Length Rightmost 
of Field pe tH of Field 


pat th Rightmost 
ield Position of Field 


Note: Column seven must contain a period as illustrated. 


SECTION: 


The I/O Field descriptions are inserted into the UNIVAC provided 1050/1004 I/O 
package as follows: 


Following card 02610 the card input field. 
Following card 02790 the card output field. 
Following card 02980 the detail output field. 


The END card comes last. 


C. TAPE SYSTEM 


If the PAL Tape Assembler is used, the call lines for UNIVAC 1050 REGENT I/O 
control routines are omitted. The tape REGENT ROUTINE calls and I/O control 
routine field descriptions, that must appear immediately behind them, are as follows: 


80 column read routine, 


Rightmost 
Position of Field 


Length of Rightmost __ 
Field ,, Position of Field 


Length of Rightmost 
hen eek! Fel? ; Position of Fjeld | I 
| 


The calls for the 90 column card reader and punch routines would appear as *4SR(9) 
and *4$3H(9) respectively. Column seven must contain a period as illustrated. 


The following calls must appear after the I/O control routine calls and I/O field 
descriptions: 


10 
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Pus ed Lt 


For operating under the OPR Executive Routine the second call is XHLS; if the 
system is a 90 column system, the second call is followed by a nine in parentheses, 
e., *XHLS(9) or XHLS(Q). 


if the reader is to be used. 
if no reading is required. 
if the punch is to be used. 
if no punching is required. 
if the printer is to be used. 
if no printing is required. 
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APPENDIX A. 


ARITHMETIC 


SEQUENCE CONTROL 
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EXPRESSION OF DATA 


1/0 CONTROL 


1/0 ROUTINE CALLS 


REGENT 


OPERATION 
FIELD 
DIRECTIVE 


DESCRIPTION 


Add field to an accumulator. 

Subtract field from an accumulator. 
Multiply two fields. 

Divide one field by another. 

Add to accumulator(s) and reset source. 
Reset accumulator(s) to zero. 

Half adjust a field (round). 

Position adjust field (shift). 


Transfer contents of field to another field; editing optional. 
Clear an area to blanks. 
Block transfer up to 1024 characters. 


Test for control break; if present transfer control. 

Decimal algebraic compare, transfer control if condition met. 
Alphabetic (binary) compare, transfer control if condition met. 
Compare character, transfer control if condition met. 

Compare digit, transfer contro! if condition met. 


Compare for designated zone punch, transfer control if condition met. 


Compare for negative value, transfer control if negative. 
Lines between RTN and EXIT are aclosed subroutine. 
Execute routine named. 

Unconditionally transfer control to operation named. 
Replace name of operation in operand of named GOTO line. 
Stop and display contents of operand field. 

Complete current operations and stop peripherals named. 


First statement. Operand is same as for PAL. 

Initialize the peripheral devices named. 

Specifies number of lines on page of printout in operand. 

If an Executive is used XCUTE 0700 to relinquish control. 
Last line of source program, contains operand XXXXX. 


Input file description; precedes detail field descriptions. 
Output file description; predeces detail field descriptions. 
Detail field description within an 1/O file. 

Nondetail field description; generates data. 

Constant description. 

Accumulator description. 

Edit mask description. 

Temporary storage register description. 


Read an input card. 

Punch a summary card. 

Two forms: 1 skip n lines, 2 print a line on line n. 
Generate a 90 column input or output translate table. 
Translate 90 column code to internal code or vice versa. 


Card System card reader routine call. 

Card System card punch routine call. 

Card System print routine call. 

Tape System card reader routine call. 
Tape System card punch routine call. 

Tape System print routine call. 

Tape System card routine with Executive. 
Tape System punch routine with Executive. 
Tape System print routine with Executive. 
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REGENT DIRECTIVE 
REFERENCE TABLE 
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